10 PRINT"[147]READING DATA":CK=0:FORI=49152TO49423:READD:POKEI,D:CK=CK+D:NEXT
20 IFCK<>30932THENPRINT"ERROR IN DATA STATEMENTS":END
30 PRINT"[147]DISK OR TAPE (D/T) ";:INPUTA$
40 IFLEFT$(A$,1)="T"THENDV$="PREPARE TAPE":DV=1:GOTO70
50 IFLEFT$(A$,1)="D"THENDV$="INSERT DISK":DV=8:GOTO70
60 GOTO30
70 PRINT""DV$", THEN PRESS RETURN"
75 PRINT"  THE GAZETTE DISK IS WRITE-PROTECTED   "
80 GETA$:IFA$<>CHR$(13)THEN80
90 PRINT"WRITING FILE
100 F$[178]"INFO PLEASE":[151]251,[194](71):[151]252,[194](72)
110 AD[178][194](251)[170][194](252)[172]256:[151]183,[194](AD):[151]187,[194](AD[170]1)
120 [151]188,[194](AD[170]2):[151]184,DV:[151]186,DV:[151]185,1
130 [151]251,0:[151]252,192:[151]780,251:[151]781,16:[151]782,193:[158]65496
140 [153]"LOAD INFO PLEASE FILE CREATED":[128]
150 [131] 169,181,160,192,32,30,171,169,0,133,253,133,254,165,43,133
160 [131] 251,165,44,133,252,160,0,177,251,72,200,177,251,240,13,133
170 [131] 252,104,133,251,230,253,208,237,230,254,208,233,104,165,254,166
180 [131] 253,32,160,192,56,165,45,229,43,170,165,46,229,44,32,160
190 [131] 192,56,165,47,229,45,170,165,48,229,46,32,160,192,56,165
200 [131] 49,229,47,170,165,50,229,48,32,160,192,32,38,181,56,165
210 [131] 55,229,51,133,253,170,165,56,229,52,133,254,32,160,192,56
220 [131] 165,55,229,43,170,165,56,229,44,32,160,192,56,165,49,229
230 [131] 43,170,165,50,229,44,168,24,138,101,253,170,152,101,254,32
240 [131] 160,192,56,165,51,229,49,170,165,52,229,50,32,160,192,96
250 [131] 72,138,72,169,9,133,211,32,108,229,104,170,104,32,205,189
260 [131] 169,13,76,210,255,13,13,76,73,78,69,83,46,46,46,46
270 [131] 13,80,82,79,71,82,65,77,46,46,13,86,65,82,73,65
280 [131] 66,76,69,46,13,65,82,82,65,89,46,46,46,46,13,83
290 [131] 84,82,73,78,71,46,46,46,13,77,69,77,79,82,89,46
300 [131] 46,46,13,85,83,69,68,46,46,46,46,46,13,70,82,69
310 [131] 69,46,46,46,46,46,13,145,145,145,145,145,145,145,145,0